home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / alpha_animata.xdve < prev    next >
Text File  |  1980-12-25  |  2KB  |  85 lines
  1. /* DISSOLVENZA CON ALPHA ANIMATO IN 50 FRAMES 
  2. RICHIEDE UNA ANIMAZIONE DI 50 FRAMES in BIANCO e NERO */
  3.  
  4. ADDRESS "ADPro"
  5. OPTIONS RESULTS
  6.  
  7. TRUE  = 1
  8. FALSE = 0
  9. TmpAlpha = 'T:alpha'
  10. TmpIma = 'T:immagine'
  11. TmpIma2 = 'T:immagine2'
  12. NUMEROFRAME = 0
  13. FRAMENUM = 1
  14.  
  15. OKAY2 '" Hai pronta una animazione B N di 50 frames? "'
  16. IF RC = 0 THEN EXIT
  17.  
  18. GETFILES '"Scegli la PRIMA immagine"'
  19.  IF RC ~= 0 THEN EXIT
  20.   PRIMA = ADPRO_RESULT
  21.    IF PRIMA = "" THEN EXIT
  22.      LOADER "UNIVERSAL" PRIMA
  23.     XSIZE
  24.      BASE = ADPRO_RESULT
  25.     YSIZE
  26.      ALTZ = ADPRO_RESULT
  27. SAVER "IFF" TmpIma "RAW"
  28.  
  29. GETFILES '"Seleziona la SECONDA immagine"'
  30.  IF RC ~= 0 THEN EXIT
  31.   SECONDA = ADPRO_RESULT
  32.    IF SECONDA = "" THEN EXIT
  33.      LOADER "UNIVERSAL" SECONDA
  34.     XSIZE
  35.      BASE2 = ADPRO_RESULT
  36.     YSIZE
  37.      ALTZ2 = ADPRO_RESULT
  38. IF (BASE2 > BASE) | (ALTZ2 > ALTZ) THEN DO
  39.                           ABS_SCALE (BASE) (ALTZ)
  40.                           END
  41. IF (BASE2 < BASE) | (ALTZ2 < ALTZ) THEN DO
  42.                           ABS_SCALE (BASE) (ALTZ)
  43.                           END
  44.           SAVER "IFF" TmpIma2 "RAW"
  45.  
  46. GETFILES '"Scegli la animazione"'
  47.  IF RC ~= 0 THEN EXIT
  48.   ALPHACUST = ADPRO_RESULT
  49.    IF ALPHACUST = "" THEN EXIT
  50.                           
  51. GETfile '"Path e nomebase 50 frames elaborati"'
  52. IF RC ~= 0 THEN EXIT
  53. OUTFILE = ADPRO_RESULT
  54. if OUTFILE = "" then exit 
  55.   
  56.     DO i=1 to 50
  57.      LOADER 'ANIM' ALPHACUST 'FRAME' (FRAMENUM)
  58.     XSIZE
  59.      BASE3 = ADPRO_RESULT
  60.     YSIZE
  61.      ALTZ3 = ADPRO_RESULT
  62. IF (BASE3 > BASE) | (ALTZ3 > ALTZ) THEN DO
  63.                           ABS_SCALE (BASE) (ALTZ)
  64.                           END
  65. IF (BASE3 < BASE) | (ALTZ3 < ALTZ) THEN DO
  66.                           ABS_SCALE (BASE) (ALTZ)
  67.                           END
  68.           SAVER "IFF" TmpAlpha "RAW"
  69.      LFORMAT "UNIVERSAL"
  70.   LOAD TmpIma2
  71. LOAD TmpAlpha COMPOFFSET 0 0 ASALPHA
  72. LOAD TmpIma COMPOFFSET 0 0 100 ALPHAMEM
  73.   FRAMENUM = (FRAMENUM + 1)
  74.   NUMEROFRAME = (NUMEROFRAME + 1)
  75. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  76.   SAVER "IFF" (OUTFILE)||'.'||(NUMERO) "RAW" 
  77.   SAY "Salvo il frame Num." NUMERO
  78. END
  79.  
  80. ADDRESS COMMAND "Delete >NIL:" TmpIma
  81. ADDRESS COMMAND "Delete >NIL:" TmpIma2
  82. ADDRESS COMMAND "Delete >NIL:" TmpAlpha
  83.  
  84. EXIT
  85.